home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Tech Arsenal 1
/
Tech Arsenal (Arsenal Computer).ISO
/
tek-02
/
alph100p.zip
/
DEMO2.PAS
< prev
next >
Wrap
Pascal/Delphi Source File
|
1991-11-02
|
2KB
|
92 lines
{$A+,B-,D-,E-,F-,G-,I-,L-,N-,O-,R-,S-,V-,X-}
{$M 1024,0,0}
program Demo2;
uses wow, alpha;
Type
Proc = Procedure;
Procedure Plain; Far;
begin
end;
Procedure SPage(s: string; P: Proc);
var L,n,m:byte;
begin
Textbackground(black);
textcolor(yellow);
clrscr;
gotoxy(33,1);write('ALPHA COLOR DEMO');
gotoxy(31,3);write(S);
gotoxy(15,4);write('Background');
gotoxy(55,4);write('Foreground');
for n:=15 downto 0 do
begin
TextBackground(n);
TextColor(n);
gotoxy(1,n+5);
for m:=1 to 40 do echo(#32);
for m:=1 to 40 do echo(#219);
inc(l)
end;
Sound(333);delay(200);nosound;
delay(5000);
end;
Procedure MPage(s: string);
var L,n,m:byte;
begin
Textbackground(black);
textcolor(yellow);
clrscr;
gotoxy(33,1);write('ALPHA COLOR DEMO');
gotoxy(31,3);write(S);
gotoxy(15,4);write('Background');
gotoxy(55,4);write('Foreground');
for n:=15 downto 0 do
begin
TextBackground(n);
TextColor(n);
MakeAlphaChoice(Ega_MOde);
gotoxy(1,n+5);
for m:=1 to 40 do echo(#32);
for m:=1 to 40 do echo(#219);
inc(l)
end;
Sound(333);delay(200);nosound;
delay(5000);
end;
Procedure CPage(s: string);
var L,n,m:byte;
begin
Textbackground(black);
textcolor(yellow);
clrscr;
gotoxy(33,1);write('ALPHA COLOR DEMO');
gotoxy(31,3);write(S);
gotoxy(15,4);write('Background');
gotoxy(55,4);write('Foreground');
for n:=15 downto 0 do
begin
TextBackground(n);
TextColor(n);
MakeAlphaChoice(Cga16_MOde);
gotoxy(1,n+5);
for m:=1 to 40 do echo(#32);
for m:=1 to 40 do echo(#219);
inc(l)
end;
Sound(333);delay(200);nosound;
delay(5000);
end;
begin
spage('Plain - Cga_Mode',Plain);
spage('HighVideo - Cga_Mode',HighVideo);
spage('LowVideo - Cga_Mode', LowVideo);
Mpage('Plain - Ega_Mode');
Cpage('Plain - Cga16_Mode');
end.